home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / webvrchk / webvrchk.frm < prev    next >
Text File  |  1998-12-04  |  3KB  |  90 lines
  1. VERSION 5.00
  2. Object = "{F27AA195-8600-11D1-AD8F-DB21EA843472}#3.0#0"; "WEBVCHK2.OCX"
  3. Begin VB.Form frmTest 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "WebVerCheck Test"
  6.    ClientHeight    =   3210
  7.    ClientLeft      =   30
  8.    ClientTop       =   285
  9.    ClientWidth     =   4740
  10.    Icon            =   "WebVrChk.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3210
  15.    ScaleWidth      =   4740
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Check..."
  19.       Height          =   372
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   972
  24.    End
  25.    Begin DevPowerWebVrChk.WebVrChk WebVrChk1 
  26.       Left            =   1200
  27.       Top             =   120
  28.       _ExtentX        =   847
  29.       _ExtentY        =   847
  30.       AutoLaunchBrowser=   -1  'True
  31.       Version         =   "0.0"
  32.    End
  33.    Begin VB.Label lblVersion 
  34.       Height          =   228
  35.       Left            =   1788
  36.       TabIndex        =   3
  37.       Top             =   192
  38.       Width           =   2304
  39.    End
  40.    Begin VB.Label Label2 
  41.       Caption         =   $"WebVrChk.frx":030A
  42.       Height          =   1428
  43.       Left            =   132
  44.       TabIndex        =   2
  45.       Top             =   1560
  46.       Width           =   4452
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   $"WebVrChk.frx":0462
  50.       Height          =   972
  51.       Left            =   120
  52.       TabIndex        =   1
  53.       Top             =   588
  54.       Width           =   4452
  55.    End
  56. End
  57. Attribute VB_Name = "frmTest"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. Private Sub Command1_Click()
  63.     ' Perform Version Check:
  64.     WebVrChk1.Check
  65. End Sub
  66.  
  67. Private Sub Form_Load()
  68.     lblVersion.Caption = "WebVrChk Version " + WebVrChk1.Version
  69. End Sub
  70.  
  71. Private Sub WebVrChk1_ErrorInDownload(ByVal Error As wvcError)
  72.     Select Case Error
  73.         Case wvcFileNotFound, wvcCoundNotConnect
  74.             MsgBox "Could not connect to web site or file not found"
  75.     End Select
  76. End Sub
  77.  
  78. Private Sub WebVrChk1_UpdateAvailable(ByVal sNewVersion As String, ByVal sDownloadURL As String, ByVal sAbstract As String, ByVal sCustomData As String)
  79.     MsgBox "Version available is " + sNewVersion + ", CurrentVersion property is set to " + WebVrChk1.CurrentVersion + _
  80.            vbLf + vbLf + "Download URL set to : " + sDownloadURL + _
  81.            vbLf + vbLf + "Abstract set to : " + sAbstract + _
  82.            vbLf + vbLf + "Custom Data set to : " + sCustomData, _
  83.            vbInformation, "A new version has been found"
  84. End Sub
  85.  
  86. Private Sub WebVrChk1_UpdateUnavailable()
  87.     MsgBox "You have the most recent version available (" + WebVrChk1.CurrentVersion + ")", _
  88.            vbInformation, "A new version was not found"
  89. End Sub
  90.